#!c:\Perl\5.00502\bin\MSWin32-x86-object\perl.exe

use DBI;
use DBD::mysql;

$DEBUG= 0;


my $dbh= DBI->connect("DBI:mysql:divaweb:213.171.193.146",'diva','yesied');


#now grant permissions to committee_members
print "Getting Tables\n";
$sql= qq~
	show tables
~;
my ($sth)= $dbh->prepare($sql);
my ($rv)= $sth->execute;

while (my $res_hash= $sth->fetchrow_hashref) {
	print "Table: $$res_hash{'Tables_in_divaweb'}\n";
	$sql= qq~
		drop table $$res_hash{'Tables_in_divaweb'}
	~;
	($sth_a)= $dbh->prepare($sql) ;
	($rv_a)= $sth_a->execute ;

}
print "\n";

$dbh->disconnect;
